home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / geos / geos1.d64 / geocheck - pt2 (.txt) < prev    next >
Commodore BASIC  |  1995-08-05  |  4KB  |  147 lines
  1. 100 REM GEOCHECK
  2. 105 REM AUS SONDERHEFT 28
  3. 110 REM ALLES UEBER GEOS
  4. 130 CLR:FORF=49152TO49189:READX:POKEF,X:NEXT
  5. 135 SYS49152
  6. 140 DATA169,11,160,192,141,38,3,140,39
  7. 145 DATA3,96,201,65,144
  8. 150 DATA9,201,91,176,5,73,32,76,202,241,201,97,144,249,201,123,176,245
  9. 155 DATA73,32,76,202,241,255
  10. 160 PRINT"":C$=" ":FORF=1TO6:C$=C$+C$:NEXT
  11. 165 SS$=CHR$(160):FORF=1TO4:SS$=SS$+SS$:NEXT
  12. 170 M$="GEOS "+CHR$(102)+CHR$(111)+CHR$(114)+CHR$(109)+CHR$(97)+CHR$(116)+" V1.0"
  13. 175 DIMD$(150),T$(150),S$(150),DS(150),DB(150),FD$(7),FS$(1),FG$(14),IB$(256)
  14. 180 DIMR$(20)
  15. 185 FORF=0TO7:READFD$(F):NEXT
  16. 190 DATA DEL,SEQ,PRG,USR,REL,???,???,???
  17. 195 FS$(0)="SEQUENTIELL":FS$(1)="VLIR"
  18. 200 FORF=0TO14:READFG$(F):NEXT
  19. 205 DATA "C= PRG","BASIC-PROGRAMM",ASSEMBLERPROG.,REINE DATEN,SYSTEMDATEI
  20. 210 DATAHILFSPROGRAMM,ANWENDUNG,DOKUMENT,SCHRIFTART,DRUCKERTREIBER
  21. 215 DATA EINGABETREIBER,DISK-TREIBER,STARTPROGRAMM,TEMPORAER,SELBSTAUSFUEHREND
  22. 220 GOTO325
  23. 225 REM SUB
  24. 230 POKE806,202:POKE807,241:RETURN
  25. 235 DS=1:P=1:OPEN1,8,15:OPEN2,8,2,"#"
  26. 240 PRINT#1,"U1 2 0 18";DS
  27. 245 GET#2,NT$:GET#2,NS$:NT$=NT$+CHR$(0)
  28. 250 FORI=0TO7:IFP>1THENPRINT"";P-1
  29. 255 PRINT#1,"B-P 2";I*32+2
  30. 260 GET#2,TY$:TY$=TY$+CHR$(0):IFTY$=CHR$(0)ORTY$=CHR$(128)THEN280
  31. 265 PRINT#1,"B-P 2";I*32+5
  32. 270 FORJ=1TO16:GET#2,A$:D$(P)=D$(P)+A$:NEXT:DS(P)=DS:DB(P)=I*32
  33. 275 GET#2,T$:GET#2,S$:T$(P)=T$+CHR$(0):S$(P)=S$+CHR$(0):P=P+1
  34. 280 NEXT:IFP>149THEN290
  35. 285 IFNT$<>CHR$(0)THENDS=ASC(NS$):GOTO240
  36. 290 CLOSE2:CLOSE1:P=P-1:RETURN
  37. 295 OPEN1,8,15:OPEN2,8,2,"#"
  38. 300 PRINT#1,"U1 2 0 18 0"
  39. 305 PRINT#1,"B-P 2 173":I$=""
  40. 310 FORI=1TO16:GET#2,A$:I$=I$+A$:NEXT
  41. 315 CLOSE2:CLOSE1:RETURN
  42. 320 :
  43. 325 REM HAUPTPROGRAMM
  44. 330 :
  45. 335 PRINT"[147]GEO[195]HECK  TEIL 2 (CHECK SCRAP ERSTELLEN)[146]"
  46. 340 PRINT:PRINT" VON [198]LORIAN [205]UELLER ([205]ARKT & [212]ECHNIK)"
  47. 345 PRINT" AUTOR VON 'C64 - ALLES UEBER GEOS 1.2'  UND 'C64 - GEOS 1.3 DEUTSCH'
  48. 350 [153]" PEEKITTE EINE CHR$VAL(null)(null)-STR$ISKETTE EINLEGEN UND   <(null)VAL(null)(null)(null)(null)> DRUECKEN"
  49. 355 [151]53296,0:[151]53265,27
  50. 360 [161]A$:[139]A$[179][177][199](13)[167]360
  51. 365 [141]225:[141]295:[139]I$[179][177]M$[167]350
  52. 370 [153]"LOAD         STR$IRECTORY WIRD GELESEN.        WAIT"
  53. 375 [153]"    _ ATNNZAHL DER GELESENEN ASCILEEINTRAEGE"
  54. 380 [141]235:O[178]1
  55. 385 :
  56. 390 :
  57. 395 [153]"LOAD     ASCILE ZUR PEEKEARBEITUNG AUSWAEHLEN    "
  58. 400 [153]"  STR$ISK ENTHAELT ";P;"CMD WAIT ASCILE";:[139][181](P)[179][177]1[167][153]"S";
  59. 405 [153]"."
  60. 410 [153]" LEN(null)(null)(null)(null)(null)CLOSE(null)(null)WAIT    1 ASCILE ZURUECK":[153]" LEN(null)(null)(null)(null)(null) STR$(null)(null)(null)WAIT  1 ASCILE VOR"
  61. 415 [153]" (null)VAL(null)(null)(null)(null)WAIT       ASCILE NEHMEN":[153]" ASC1WAIT           (null)EUE STR$ISKETTE"
  62. 420 [158]49152:[153]"";C$:[153]"ONASCILE #";O;":   ";D$(O)
  63. 425 [161]A$:[139]A$[178]""[167]425
  64. 430 [139]A$[178]"ON"[167]O[178]O[171]1:[139]O[178]0[167]O[178]P
  65. 435 [139]A$[178]""[167]O[178]O[170]1:[139]O[177]P[167]O[178]1
  66. 440 [139]A$[178]"INPUT"[167][138]135
  67. 445 [139]A$[179][177][199](13)[167]420
  68. 450 [139]T$(O)[179][177][199](0)[167][153]:[153]:[153]:[137]480
  69. 455 [153]"LOAD(null)EIN CHR$VAL(null)(null)-ASCILE !"
  70. 460 [153]
  71. 465 [153]"<(null)VAL(null)(null)(null)(null)>"
  72. 470 [161]A$:[139]A$[179][177][199](13)[167]470
  73. 475 [137]395
  74. 480 :
  75. 485 N$[178]"":I[178]1
  76. 490 [139][202](D$(O),I,1)[178][199](160)[167]500
  77. 495 N$[178]N$[170][202](D$(O),I,1):I[178]I[170]1:[139]I[179][178]16[167]490
  78. 500 FE$[178]"":[141]225
  79. 505 [159]1,8,15,"I":[159]2,8,2,"#"
  80. 510 [152]1,"U1 2 0 18";DS(O)
  81. 515 [152]1,"B-P 2";DB(O)
  82. 520 [129]F[178]1[164]32
  83. 525 :[161]#2,A$:[139]A$[178]""[167]A$[178][199](0)
  84. 530 :FE$[178]FE$[170]A$
  85. 535 [130]
  86. 540 [160]1:[160]2
  87. 545 IT[178][198]([202](FE$,22,1)[170][199](0))
  88. 550 IS[178][198]([202](FE$,23,1)[170][199](0))
  89. 555 FG[178][198]([202](FE$,25,1)[170][199](0))
  90. 560 DY[178][198]([202](FE$,26,1)[170][199](0))
  91. 565 DM[178][198]([202](FE$,27,1)[170][199](0))
  92. 570 DD[178][198]([202](FE$,28,1)[170][199](0))
  93. 575 DH[178][198]([202](FE$,29,1)[170][199](0))
  94. 580 MI[178][198]([202](FE$,30,1)[170][199](0))
  95. 585 [153]"FILEEINTRAG #";O
  96. 590 [153]"FILEEINTRAG AUF SPUR 18/BLOCK";DS(O)
  97. 595 [153]"INFO-BLOCK AUF SPUR";IT;"/SEKTOR";IS
  98. 600 [153]"GEOS-FILETYP:      ";
  99. 605 [139]FG[177]14[167][153]"FUEHRT ZU ABSTURZ";
  100. 610 [139]FG[179][178]14[167][153]FG$(FG);
  101. 615 [153]" (";FG;")"
  102. 620 [153]"DATUM DER LETZTEN MODIFIKATION:"
  103. 625 [153][201]([196](DD[170]100),2);".";[201]([196](DM[170]100),2);".";DY[170]1900;
  104. 630 [153]"    ";[201]([196](DH[170]100),2);".";[201]([196](MI[170]100),2)
  105. 635 [141]225
  106. 640 [153]:[153]:[153]"NUN WIRD DER INFO-BLOCK EINGELESEN.":[153]
  107. 645 :
  108. 650 [159]1,8,15,"I":[159]2,8,2,"#"
  109. 655 [152]1,"U1 2 0";IT;IS
  110. 660 [152]1,"B-P 2 0"
  111. 665 :
  112. 670 [129]F[178]1[164]256
  113. 675 [161]#2,A$:[139]A$[178]""[167]A$[178][199](0)
  114. 680 IB$(F)[178]A$
  115. 685 [130]
  116. 690 :
  117. 695 [160]1:[160]2
  118. 700 :
  119. 701 [159]1,8,0,D$(O)[170]",P,R":[161]#1,B1$,B2$:[160]1
  120. 702 [139]B1$[178]""[167]B1$[178][199](0)
  121. 703 [139]B2$[178]""[167]B2$[178][199](0)
  122. 704 [153]"BYTE #1:"[198](B1$):[153]"BYTE #2:"[198](B2$)
  123. 705 [143]
  124. 710 [143]
  125. 715 :
  126. 720 :
  127. 725 [143]
  128. 730 [143]
  129. 735 :
  130. 740 [153]"PEEKITTE NUN EINE (null)IELDISKETTE FUER DAS"
  131. 745 [153]"GEOLENHECK-ASCILE EINLEGEN. STR$IESE STR$ISKETTE"
  132. 750 [153]"MUSS NICHT DAS CHR$VAL(null)(null)-ASCORMAT AUFWEISEN."
  133. 755 :
  134. 760 [153]"<SHIFT>"
  135. 765 [151]653,0:[146]653,1
  136. 770 [159]1,8,15,"S:CHECK SCRAP"
  137. 775 [132]1,A,A$,B,C:[153]"DISK:"A;A$;B;C
  138. 780 [160]1:[139]A[177]19[167][144]
  139. 785 [160]1:[159]2,8,2,"CHECK SCRAP,P,W"
  140. 790 [152]2,[199](FG)[199](DY)[199](DM)[199](DD)[199](DH)[199](MI);
  141. 791 [139]B1$[178]""[167]B1$[178][199](0)
  142. 792 [139]B2$[178]""[167]B2$[178][199](0)
  143. 793 [152]2,B1$;B2$;
  144. 795 [129]F[178]1[164]256:[152]2,IB$(F);:[130]
  145. 800 [160]2
  146. 805 [153]"SCHREIBVORGANG ANGESCHLOSSEN.":[141]225:[128]
  147.